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LIBSESTABLISH Establish a handler a aets Hi 90:30:32 yAx 


1 MODULE LIBSESTAY 15H SPTITLG Establish a handler 
IDENT = ; 002" ! File: LIBESTABL.B352 Edit: SBL1002 
= 
4 


BEGIN 


' 
eRe A RAE E ERRATA AREA AAA A EAE AAEAA AAA AEET ARERR AAARAAAAERA ARES 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


!® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE A THE TERMS OF SUCH LICENSE AND WITH 


® 

® 

® 

® 

® 

7] 

® 

ie IN T T « 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. * 
4 ® 
ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
ie AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
i CORPORATION. * 
© 

® 

® 

® 

* 

*® 


ie DIGITAL ASSUMES NO RESPONS 
ie SOFTWARE ON EQUIPMENT WHIC 


See Ree R RARER E AAA AAAA AAA AAA AAA A AAA AEA AAAAREAAAAAARAAEARARERARAAEEE 
' 


wie FOR THE USE OR RELIABILITY OF ITS 


I 
H NOT SUPPLIED BY DIGITAL. 


+ 
FACILITY: Utility Library 
ABSTRACT: 


This module places the address of a routine into the SRMSA_HANDLER 
offset of the callers stack frame, thereby setting up the routine 


OOOCOSSSSSSSSCSOSOSCSCCOOSOOOCOOoOOOOoOSooooOo 
NOUS UN 9 ODNAUE WN 2 OOODNOUE AN OOONAUE WP 


A.A. AWN AAA GIRO PORIPOPONOPONOPNYD 2 SS SSS OOOO 


SSsSssssssssssssssssssssssss 


NOUS WR 0 ODO UE WN 0 ODNOAU EWN O OONOU EWN OO DOONAN WN OOONOUS Wh 
Bedadtadatababadastabadbatadabadadatatabadadbabatatasatabababatabababahabababatababababahabatabababababababal 


MUNN BR ERE REE PUI nroronononononononn 3 2 


t+ 

1 

i 

‘ 

} 

i 
3 as the callers error handler. 

: $ ser mode, re-entrant, evel or not or mixed. 
Bey : ENVIRONMENT: U d AST Level ixed 
Ong : AUTHOR: Jonathan M, Taylor CREATION DATE: 6-JUL-77 
bee } MODIFIED BY: 
peg ! » : VERSION 

! 01 - original 
pee ! “8 - Use SF$ symbols. TNH 8-Oct-77 
Re ! Q- - Declare PSECTs. TNH 19-Dec-77 

50 ! 0-04 = Change to STARLET Library. DGP 20-Apr-78 

051 ! 0-05 = Change REQUIRE files for VAX system build. DGP 28-Apr-78 
O26 ! 0-06 = Change STARLET to RTLSTARLE to avoid conflicts. DGP 1-May-78 
05 ! 0-07 = Change file none fe LIBESTABL. ; P ang change the name of the 
054 ! REQUIRE file similarly. JBS 14-NOV-78— 
055 ! 1-001 - Update version number eng copyright notice. JBS 16-NOV-78 
p29 1-002 - Use prologue file. SBL 24-Jun-198 
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sed eee NESSES ABSSRSES UMA usc} 


| 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
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| PROLOGUE FILE: 


REQUIRE 'RTLIN:LIBPROLOG'; ! LIBS definitions 


TABLE OF CONTENTS: 


FORWARD ROUTINE 


LIBSESTABLISH; ! Establish an error handler for the caller 


' 
i MACROS: 
| EQUATED SYMBOLS: 


; OWN STORAGE: 


EXTERNAL REFERENCES: 


‘ V4.0-74 
ESTABL.B52;1 


1 
§ 
4 
5 
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M 
Establish e handler Veo$ep-i9be 82:88:28 ECTantuSsmeScibes taBe 682; 1 


GLOBAL ROUTINE LIBSESTABLISH ( 
NEW HANDLER) = ! Adr of adr of users handler 
++ 
FUNCTIONAL DESCRIPTION: 


Move the address passed as an argument to the SFSA_HANDLER 
offset of the callers frame. Return address of old handler. 


' 

i 

i 

i 

i 

i FORMAL PARAMETERS: 

NEW_HANDLER.ra.v Adr. of the routine to set up as handler 
! IMPLICIT INPUTS: 

NONE 

| IMPLICIT OUTPUTS: 

! NONE 

; ROUTINE VALUE: 

i 

i 

i 

i 

i 

i 

i 
B 


OLD_HANDLER.wa.v previous contents of SFSA_HANDLER 
) 


f the callers frame. 
COMPLETION CODES: 

NONE 
SIDE EFFECTS: 

The callers stack frame will be modified. 


BEGIN 


OCAL 
OLD_HANDLER; ! store the old handler address 
BUILTIN 


FP: REF BLOCKC,BYTE); 
OLD_HANDLER = ..FPCSFSL SAVE_FP); 
-FPCSFSL_SAVE_FP] = .NEQ_HANDLER; 

RETURN .OLD_HANDLER; 
END; ‘End of LIBSESTABLISH 


ABLISH Establish a handler 


-PSECT _LIBSCODE,NOWRT, SHR, PIC,2 


| IBSESTABLISH Establish a handler 18- €0-1944 90:30:32 yA faut 
gu EN 


NEW_HANDL 


ibeS tags 82:1 


lis 

«SRC tik 

Save nothin 
HANDLER . 
ai2(FP) 


; Routine Size: 12 bytes, 


semen tem ne ee ee ee 


; 13 1 END 'End of module 

; 14 $388 0 EL UDOM 

; PSECT SUMMARY 

; Name Bytes Attributes 

: LIBSCODE 12 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 


Library Statistics 


; ascasses §yabelg scoussse Pages Processing 
: File Total Lbeded Percent Mapped Time 
: _$255$DUA28:(SYSLIBISTARL eT .L32;1 9776 1 0 581 00:00.8 
; ~$255$DUA28:CLIBRTL.OBJIRT (iat 32;1 36 0 0 8 00:00.1 
; COMMAND QUALIFIERS 
FESS PCE COLD EET LA, OPT LEE SUSI ACE LE POM SOS 1h TOES TAM SOR SOR O18, RESTA, MSRC$:LIBESTABL/UPDATE=(ENH$:LIBESTABL 
Size: 12 code + ° data bytes 
Run Time 
Elapsed Time: : 08: ‘3 
Lines/CPU Min: 971 


yonenee/e-wre 8740 
ry Used: 29 pages 
nee ation Complete 
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